home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / SPECULA.BAS < prev    next >
Unknown  |  1994-02-01  |  507 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| f7 01 00 00 0d 0a 27 20 | 53 70 65 63 75 6c 61 72 |......' |Specular|
|00000010| 2e 0d 0a 20 0d 0a 27 20 | 49 6e 70 75 74 3a 09 31 |... ..' |Input:.1|
|00000020| 2d 34 2d 38 2d 32 34 20 | 62 69 74 0d 0a 27 20 4f |-4-8-24 |bit..' O|
|00000030| 75 74 70 75 74 3a 09 69 | 64 65 6d 0d 0a 0d 0a 27 |utput:.i|dem....'|
|00000040| 20 41 75 74 68 6f 72 3a | 09 41 6e 64 72 65 61 20 | Author:|.Andrea |
|00000050| 42 65 6e 6f 6e 69 09 09 | 09 20 72 65 76 3a 09 31 |Benoni..|. rev:.1|
|00000060| 2e 32 0d 0a 0d 0a 0d 0a | 73 74 72 69 6e 67 09 69 |.2......|string.i|
|00000070| 6e 70 46 69 6c 65 2c 6f | 75 74 46 69 6c 65 0d 0a |npFile,o|utFile..|
|00000080| 44 65 76 43 6f 6e 09 49 | 62 6d 70 0d 0a 52 47 42 |DevCon.I|bmp..RGB|
|00000090| 09 70 69 78 0d 0a 66 6c | 6f 61 74 20 20 09 78 2c |.pix..fl|oat .x,|
|000000a0| 79 0d 0a 0d 0a 69 6e 70 | 46 69 6c 65 3d 22 74 65 |y....inp|File="te|
|000000b0| 73 74 69 2e 62 6d 70 22 | 0d 0a 6f 75 74 46 69 6c |sti.bmp"|..outFil|
|000000c0| 65 3d 22 74 65 73 74 6f | 2e 62 6d 70 22 0d 0a 49 |e="testo|.bmp"..I|
|000000d0| 62 6d 70 3d 4c 6f 61 64 | 49 6d 61 67 65 28 69 6e |bmp=Load|Image(in|
|000000e0| 70 46 69 6c 65 29 0d 0a | 0d 0a 46 6f 72 20 79 3d |pFile)..|..For y=|
|000000f0| 30 20 74 6f 20 49 62 6d | 70 2e 48 65 69 67 68 74 |0 to Ibm|p.Height|
|00000100| 2f 32 0d 0a 20 20 20 46 | 6f 72 20 78 3d 30 20 74 |/2.. F|or x=0 t|
|00000110| 6f 20 49 62 6d 70 2e 57 | 69 64 74 68 2d 31 0d 0a |o Ibmp.W|idth-1..|
|00000120| 20 20 20 20 20 20 70 69 | 78 3d 47 65 74 50 69 78 | pi|x=GetPix|
|00000130| 65 6c 28 49 62 6d 70 2c | 78 2c 79 29 0d 0a 20 20 |el(Ibmp,|x,y).. |
|00000140| 20 20 20 20 53 65 74 50 | 69 78 65 6c 28 49 62 6d | SetP|ixel(Ibm|
|00000150| 70 2c 78 2c 49 62 6d 70 | 2e 48 65 69 67 68 74 2d |p,x,Ibmp|.Height-|
|00000160| 79 2c 70 69 78 29 0d 0a | 20 20 20 4e 65 78 74 20 |y,pix)..| Next |
|00000170| 78 0d 0a 20 20 20 69 66 | 28 79 25 31 30 3d 30 29 |x.. if|(y%10=0)|
|00000180| 0d 0a 20 20 20 20 20 20 | 50 72 65 76 69 65 77 28 |.. |Preview(|
|00000190| 49 62 6d 70 2c 22 4f 75 | 74 70 75 74 22 2c 35 2c |Ibmp,"Ou|tput",5,|
|000001a0| 35 2c 49 62 6d 70 2e 57 | 69 64 74 68 2b 31 30 2c |5,Ibmp.W|idth+10,|
|000001b0| 49 62 6d 70 2e 48 65 69 | 67 68 74 2b 33 30 29 09 |Ibmp.Hei|ght+30).|
|000001c0| 0d 0a 20 20 20 65 6e 64 | 69 66 0d 0a 4e 65 78 74 |.. end|if..Next|
|000001d0| 20 79 0d 0a 53 61 76 65 | 49 6d 61 67 65 28 49 62 | y..Save|Image(Ib|
|000001e0| 6d 70 2c 6f 75 74 46 69 | 6c 65 29 0d 0a 44 73 70 |mp,outFi|le)..Dsp|
|000001f0| 4d 65 73 28 22 4f 6b 22 | 29 0d 0a |Mes("Ok"|).. |
+--------+-------------------------+-------------------------+--------+--------+